home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1997 #2 / Amiga Plus Extra 1997 #2.iso / pd / misc / alphaspell / install < prev    next >
Encoding:
Text File  |  1997-02-16  |  10.5 KB  |  433 lines
  1. ; Installation script for AlphaSpell
  2.  
  3. (transcript "Installing AlphaSpell ...")
  4.  
  5. ; Messages
  6.  
  7. (set #intro (cat
  8.     "This script will install the spelling checker AlphaSpell, "
  9.     "an English dictionary, the AlphaSpell GUI, which will let AlphaSpell "
  10.     "work with a text editor, and MUISpell, a stand-alone GUI for AlphaSpell "
  11.     "that requires MUI.\n\nYou may skip any stage of the installation."
  12. ) )
  13.  
  14. (set #where (cat
  15.     "This script will create a drawer called AlphaSpell and put everything "
  16.     "in it. Where do you want to create this drawer?"
  17. ))
  18.  
  19. (set #arexxport (cat
  20.     "Andy Cook's arexxport.library\n\nThis library is required for "
  21.     "AlphaSpell's arexx port, and it is required for Varexx, which makes "
  22.     "the AlphaSpell GUI possible."
  23. ))
  24.  
  25. (set #rexxtricks (cat
  26.     "Jürgen Kohrmeyer's rexxtricks.library\n\nThis library is required for "
  27.     "the AlphaSpell GUI."
  28. ))
  29.  
  30. (set #gui (cat
  31.     "Would you like to install the AlphaSpell GUI? This is an interface that "
  32.     "lets you use AlphaSpell with your text editor."
  33. ))
  34.  
  35. (set #mui (cat
  36.     "Would you like to install MUISpell? This is a stand-alone Magic User "
  37.     "Interface that lets you spell check without the aid of a text editor."
  38. ))
  39.  
  40. (set #editors (cat
  41.     "Which text editors do you want to install scripts for? The stars "
  42.     "indicate how well the AlphaSpell GUI works with each editor."
  43. ))
  44.  
  45. (set #disk (cat
  46.     "It is recommended that you install AlphaSpell to your hard drive. But "
  47.     "AlphaSpell will also work off of a floppy disk. How do you want to "
  48.     "install AlphaSpell?"
  49. ))
  50.  
  51. (message #intro)
  52.  
  53. ; Install Alphaspell
  54.  
  55. (complete 0)
  56.  
  57. (if (not (exists "AlphaSpell:" (noreq)))
  58.     (if
  59.         (askbool
  60.             (prompt #disk)
  61.             (help @askbool-help)
  62.             (choices "Hard Drive" "Floppy Disk")
  63.         )
  64.         (
  65.             (set #dest
  66.                 (tackon
  67.                     (askdir
  68.                         (prompt #where)
  69.                         (help @askdir-help)
  70.                         (default "Work:")
  71.                     )
  72.                     "AlphaSpell"
  73.                 )
  74.             )
  75.             (makedir #dest (infos))
  76.             (makeassign "AlphaSpell" #dest)
  77.             (startup "AlphaSpell"
  78.                 (prompt "Adding assign to S:User-Startup")
  79.                 (help @startup-help)
  80.                 (command (cat "Assign AlphaSpell: " #dest))
  81.             )
  82.         )
  83.         (askdisk
  84.             (prompt "Please insert a disk labeled AlphaSpell")
  85.             (help @askdisk-help)
  86.             (dest "AlphaSpell")
  87.         )
  88.     )
  89. )
  90. (set @default-dest "AlphaSpell:")
  91.  
  92. (set cputype (+(database "CPU")) )
  93.  
  94. (if (< cputype 68020)
  95.     (set #src "68000/AlphaSpell")
  96.     (set #src "68020/AlphaSpell")
  97. )
  98.  
  99. (copyfiles
  100.     (prompt "Copying AlphaSpell")
  101.     (help @copyfiles-help)
  102.     (source #src)
  103.     (newname "AlphaSpell")
  104.     (dest "AlphaSpell:")
  105.     (confirm)
  106. )
  107.  
  108. (copyfiles
  109.     (prompt "Copying AlphaSpell's icon")
  110.     (help @copyfiles-help)
  111.     (source "AlphaSpell.info")
  112.     (dest "AlphaSpell:")
  113.     (confirm)
  114. )
  115.  
  116. ; Install Documentation
  117.  
  118. (complete 16)
  119.  
  120. (makedir "AlphaSpell:Docs" (infos))
  121.  
  122. (copyfiles
  123.     (prompt "Copying AlphaSpell's Documentation")
  124.     (help @copyfiles-help)
  125.     (source "Docs/")
  126.     (dest "AlphaSpell:Docs/")
  127.     (confirm)
  128.     (infos)
  129.     (all)
  130. )
  131.  
  132. ; Install Dictionary
  133.  
  134. (complete 33)
  135.  
  136. (makedir "AlphaSpell:Dict")
  137. (makedir "AlphaSpell:Dict/English")
  138.  
  139. (copyfiles
  140.     (prompt "Copying AlphaSpell's Dictionaries")
  141.     (help @copyfiles-help)
  142.     (source "Dict/English/")
  143.     (dest "AlphaSpell:Dict/English/")
  144.     (confirm)
  145.     (all)
  146. )
  147.  
  148. ; Install the AlphaSpell GUI
  149.  
  150. (complete 49)
  151.  
  152. (if
  153.     (askbool
  154.         (prompt #gui)
  155.         (help @askbool-help)
  156.     )
  157.     (
  158.         (set options
  159.             (askoptions
  160.                 (prompt #editors)
  161.                 (help @askoptions-help)
  162.                 (choices
  163.                     "AmokEd *"
  164.                     "Annotate **"
  165.                     "BlacksEditor ****"
  166.                     "DME *"
  167.                     "Ed ***"
  168.                     "Emacs ****"
  169.                     "FrexxEd ****"
  170.                     "GoldEd ****"
  171.                     "SkoEd *"
  172.                     "Textra ****"
  173.                     "TJM DME ****"
  174.                     "TKEd"
  175.                     "TurboText ****"
  176.                     "XDME ****"
  177.                 )
  178.                 (default 0)
  179.             )
  180.         )
  181.  
  182.         (set #rexxdir "AlphaSpell:REXX")
  183.         (makedir #rexxdir)
  184.  
  185.         (if (bitand options $01)
  186.             (copyfiles
  187.                 (prompt "Copying ARexx script")
  188.                 (help @copyfiles-help)
  189.                 (source "Interfaces/AmokEd/")
  190.                 (dest #rexxdir)
  191.                 (confirm)
  192.                 (all)
  193.             )
  194.         )
  195.  
  196.         (if (bitand options $02)
  197.             (copyfiles
  198.                 (prompt "Copying ARexx script")
  199.                 (help @copyfiles-help)
  200.                 (source "Interfaces/Annotate/")
  201.                 (dest #rexxdir)
  202.                 (confirm)
  203.                 (all)
  204.             )
  205.         )
  206.  
  207.         (if (bitand options $04)
  208.             (copyfiles
  209.                 (prompt "Copying ARexx script")
  210.                 (help @copyfiles-help)
  211.                 (source "Interfaces/BlacksEditor/")
  212.                 (dest #rexxdir)
  213.                 (confirm)
  214.                 (all)
  215.             )
  216.         )
  217.  
  218.         (if (bitand options $08)
  219.             (copyfiles
  220.                 (prompt "Copying ARexx script")
  221.                 (help @copyfiles-help)
  222.                 (source "Interfaces/DME/")
  223.                 (dest #rexxdir)
  224.                 (confirm)
  225.                 (all)
  226.             )
  227.         )
  228.  
  229.         (if (bitand options $10)
  230.             (copyfiles
  231.                 (prompt "Copying ARexx script")
  232.                 (help @copyfiles-help)
  233.                 (source "Interfaces/Ed/")
  234.                 (dest #rexxdir)
  235.                 (confirm)
  236.                 (all)
  237.             )
  238.         )
  239.  
  240.         (if (bitand options $20)
  241.             (copyfiles
  242.                 (prompt "Copying ARexx script")
  243.                 (help @copyfiles-help)
  244.                 (source "Interfaces/Emacs/")
  245.                 (dest #rexxdir)
  246.                 (confirm)
  247.                 (all)
  248.             )
  249.         )
  250.  
  251.         (if (bitand options $40)
  252.             (copyfiles
  253.                 (prompt "Copying ARexx script")
  254.                 (help @copyfiles-help)
  255.                 (source "Interfaces/FrexxEd/")
  256.                 (dest #rexxdir)
  257.                 (confirm)
  258.                 (all)
  259.             )
  260.         )
  261.  
  262.         (if (bitand options $80)
  263.             (copyfiles
  264.                 (prompt "Copying ARexx script")
  265.                 (help @copyfiles-help)
  266.                 (source "Interfaces/GoldEd/")
  267.                 (dest #rexxdir)
  268.                 (confirm)
  269.                 (all)
  270.             )
  271.         )
  272.  
  273.         (if (bitand options $100)
  274.             (copyfiles
  275.                 (prompt "Copying ARexx script")
  276.                 (help @copyfiles-help)
  277.                 (source "Interfaces/SkoEd/")
  278.                 (dest #rexxdir)
  279.                 (confirm)
  280.                 (all)
  281.             )
  282.         )
  283.  
  284.         (if (bitand options $200)
  285.             (copyfiles
  286.                 (prompt "Copying ARexx script")
  287.                 (help @copyfiles-help)
  288.                 (source "Interfaces/Textra/")
  289.                 (dest #rexxdir)
  290.                 (confirm)
  291.                 (all)
  292.             )
  293.         )
  294.  
  295.         (if (bitand options $400)
  296.             (copyfiles
  297.                 (prompt "Copying ARexx script")
  298.                 (help @copyfiles-help)
  299.                 (source "Interfaces/TJM_DME/")
  300.                 (dest #rexxdir)
  301.                 (confirm)
  302.                 (all)
  303.             )
  304.         )
  305.  
  306.         (if (bitand options $800)
  307.             (copyfiles
  308.                 (prompt "Copying ARexx script")
  309.                 (help @copyfiles-help)
  310.                 (source "Interfaces/TKEd/")
  311.                 (dest #rexxdir)
  312.                 (confirm)
  313.                 (all)
  314.             )
  315.         )
  316.  
  317.         (if (bitand options $1000)
  318.             (copyfiles
  319.                 (prompt "Copying ARexx script")
  320.                 (help @copyfiles-help)
  321.                 (source "Interfaces/TurboText/")
  322.                 (dest #rexxdir)
  323.                 (confirm)
  324.                 (all)
  325.             )
  326.         )
  327.  
  328.         (if (bitand options $2000)
  329.             (copyfiles
  330.                 (prompt "Copying ARexx script")
  331.                 (help @copyfiles-help)
  332.                 (source "Interfaces/XDME/")
  333.                 (dest #rexxdir)
  334.                 (confirm)
  335.                 (all)
  336.             )
  337.         )
  338.  
  339.         (copyfiles
  340.             (prompt "Copying ASpell.gui")
  341.             (help @copyfiles-help)
  342.             (source "ASpell.gui")
  343.             (dest "AlphaSpell:")
  344.             (confirm)
  345.             (infos)
  346.         )
  347.  
  348.         (if (= @language "deutsch")
  349.             (
  350.                 (makedir "AlphaSpell:Catalogs")
  351.                 (copyfiles
  352.                     (prompt "Deutsches Katalog")
  353.                     (help @copyfiles-help)
  354.                     (source "Catalogs/ASpell.deutsch")
  355.                     (dest "AlphaSpell:Catalogs/")
  356.                     (confirm)
  357.                     (all)
  358.                 )
  359.             )
  360.         )
  361.  
  362.         (copylib
  363.             (prompt #rexxtricks)
  364.             (help @copylib-help)
  365.             (source "libs/rexxtricks.library")
  366.             (dest "LIBS:")
  367.             (confirm)
  368.         )
  369.  
  370.         (copylib
  371.             (prompt "Andy Cook's Varexx. Required by the AlphaSpell GUI.")
  372.             (help @copylib-help)
  373.             (source "bin/varexx")
  374.             (dest "SYS:rexxc/")
  375.             (confirm)
  376.         )
  377.     )
  378. )
  379.  
  380. ; Install Libraries
  381.  
  382. (complete 66)
  383.  
  384. (copylib
  385.     (prompt #arexxport)
  386.     (help @copylib-help)
  387.     (source "libs/arexxport.library")
  388.     (dest "LIBS:")
  389.     (confirm)
  390. )
  391.  
  392. ; Install MUISpell
  393.  
  394. (complete 82)
  395.  
  396. (if
  397.     (askbool
  398.         (prompt #mui)
  399.         (help @askbool-help)
  400.     )
  401.     (
  402.         (makedir "AlphaSpell:MUISpell" (infos))
  403.         (copyfiles
  404.             (prompt "Installing MUISpell")
  405.             (help @copylib-help)
  406.             (source "MUISpell/MUISpell")
  407.             (dest "AlphaSpell:MUISpell/")
  408.             (confirm)
  409.         )
  410.  
  411.         (makedir "AlphaSpell:MUISpell/Docs" (infos))
  412.         (copyfiles
  413.             (prompt "Copying MUISpell's Documentation")
  414.             (help @copyfiles-help)
  415.             (source "MUISpell/Docs/")
  416.             (dest "AlphaSpell:MUISpell/Docs/")
  417.             (confirm)
  418.             (all)
  419.         )
  420.  
  421.         (if (exists "MUI:MUI" (noreq))
  422.             (if (> 917523 (getversion "MUI:MUI"))
  423.                 (message "You may need to update MUI to use MUISpell.")
  424.             )
  425.             (message "You need MUI installed to use MUISpell.")
  426.         )
  427.     )
  428. )
  429.  
  430. (complete 100)
  431.  
  432. (exit)
  433.